wwwwwwp wwwwwwp wwwwwwwwwwwwwwwwwwwwwwwwww wwwwww wwwww wwwww wwwww wwwww wwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp Browse Viewer Browse I:\_ccd\extras\browse.avi ykeyDownArrow wwwwwww wwwwwww T,QVy~ System Arial BW Times Arial HxuJlxA Arial BW TIMES browseViewer CCD Browse Browse page "Browse Viewer" shortName Browse openWindow szBrowseClip center bBrowseInit bkBrowseViewer closeWindow ptLastBrowsePos moved openWindow K= shortName() && "Browse" closeWindow szBrowseClip 8bkBrowseViewer 4logical bBrowseInit mmIsOpen clip mmClose M --wait odefaultPosition = moved 4point ptLastBrowsePos ncd256 TBKMPT NautCD CDBSE&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar browseViewer browseViewer Browse Viewer Pause pauseBrowse buttonClick buttonClick pauseBrowse playBrowse buttonClick buttonClick playBrowse goToPage SfileExtension y6browseViewer szBrowseClip pauseBrowse dwBrowseMovieLength NegoToPage W(setBrowseBar playing buttonClick buttonClick gwBrowseTimer szBrowseClip dwBrowseMovieLength gwPos 8bkBrowseViewer = browseViewer() lockScreen targetWindow = mmStatus clip B = "playing" pauseBrowse = mmPosition fileExtension(mmSource ) = "AVI" goToPage setBrowseBar Go to page slideBox slider rSide slideBar buttonClick buttonClick mousePosition e> rSide( B"slideBar" slideBar myEnabled StepBack +#,## szBrowseClip W(setBrowseBar bkBrowseViewer playing wBrowseTimer buttonClick szBrowseClip W(setBrowseBar bkBrowseViewer buttonStillDown buttonClick szBrowseClip dwBrowseMovieLength 8bkBrowseViewer gwBrowseTimer dwCurPos = mmPosition clip ( >= 1 mmStep setBrowseBar timerStop( mmStatus = "playing" mmPause B"Play" -- *** Uncomment code disappears. (The mmShow _*** -- -- *** was causing the entire desktop flash.) *** -- xmmVisible stage "BrowseViewerStage" >= 1 H1 wait StepForward browseViewerStage goToPage buttonClick buttonClick B"goToPage" 42,42,2442,1842 mediaBounds enterPage leavePage dwBrowseDelta,dwBrowseSeekTo,dwLastX szBrowseClip 4logical bBrowsePlaying gwBrowseTimer 8bkBrowseViewer timerStop( | = (mmStatus clip o = " B"play" = mmPosition wseMovieLength,dwBrowseTravel, b(rSide( lSide( B"stepback") - width( j(dwBrowseMovieLength, \ b(0,(( )) / mmSeek wait buttonClick szBrowseClip dwBrowseMovieLength 8bkBrowseViewer gwBrowseTimer dwCurPos = mmPosition clip mmStep setBrowseBar timerStop( mmStatus = "playing" mmPause B"Play" -- *** Uncomment code disappears. (The mmShow _*** -- -- *** was causing the entire desktop flash.) *** -- xmmVisible stage "BrowseViewerStage" H1 wait playBrowse mediaLength szBrowseClip,szBrowseViewer,szSysInfo[] dwBrowseMovieLength gwBrowseTimer, ",wAppName,wShortName 4logical bBrowseInit,bFirstBrowse 4point ptBrowseMovieSize,ptLastBrowsePos 8bkBrowseViewer gwPageNum szBookName ~SysSuspend,bSysMediaSuspend bSysSuspend = % = sysMediaSuspend -- *** If browse movie has already been opened session, *** -- -- *** display the %soon %possible, but verify that *** -- -- *** @same opening *** -- <> "0,0" initBrowseViewer bookInfoByBookID( "No" && appName() && "Disc found volume" && romDrive() closeBrowse o= default mmSource clip "Could xinitialize -- *** Verify Jone *** -- mmVisualSize mmEndPoint bkStartup = 8startupBookName() resourceList(icon, initBrowseSlider mmOpen mmBackgroundPalette fileExtension( ) = "MOV" mmSeek mmShow stage "browseViewerStage" setBrowseBar B"goToPage" mmPlay { notify = timerStart("periodic",1000,250, state timerNotify dwBrowseTravel, ,dwBrowseStart dwCurPos,dwTraveled mmIsOpen + = mmPosition lSide B"slidebar" " ) * pauseBrowse timerStop( mmPause -- *** removed *** -- ,dwBrowseInterval targetWindow <> >= 1 mmStep key = ykeyDownArrow -- *** This code necessary prevent disappearing *** -- -- *** Unfortunately, also causes desktop flash 2/27/95 DRL *** -- xmmVisible isOpen -- *** closes its closeWindow handler *** -- defaultPosition mmClose mmNotify mediaRef,cmd,result {objStage pgBrowseViewer = "successful") -- = "superceded") ) = " -- *** Uncomment disappears. (The _*** -- -- *** was causing entire .) *** -- cmd = szViewer ptSize kgndSize Zstack stStageBounds gwOffset szStage,szPageName = 60 = " statusBar ptBkgndSize = mediaSize Hheight( ") + -- SEE NOTE BELOW ABOUT objTop HANDLERS B"slideBar" rSide( B"stepback" B"stepforward" (width( A) + "slideBox" ) - \ ") + B"stepForward") - parentWindow = "0,0" screenResolution() -- *** a persistent property saved *** -- -- *** " gives rather annoying centering itself *** -- -- *** restored a minimized , so... *** -- / 16) "slider") - newLSide -- N.B. LIS AN O/S KEYWORD, HENCE INSTEAD newTop newRSide newBot newWidth newHeight myPath szTemp * = "\" slideBo >06060 +#,## dwBrowseSeekTo dwBrowseDelta szBrowseClip dwLastX bBrowsePlaying bkBrowseViewer Playing wBrowseTimer buttonDown +&,!> +&,!Y +&,!> +&,!Y +&,!Y +&,!Y dwBrowseTravel dwBrowseSeekTo dwBrowseDelta szBrowseClip dwLastX rSide dwBrowseMovieLength width bkBrowseViewer lSide stepback buttonStillDown +&,!" +#,## szBrowseClip dwBrowseMovieLength W(setBrowseBar bkBrowseViewer playing wBrowseTimer buttonClick +&,!" szBrowseClip dwBrowseMovieLength W(setBrowseBar bkBrowseViewer buttonStillDown , W( &y61' .&+ +E w, #? w, #? ,%H.% wAppName browseViewerStage ptBrowseMovieSize W(setBrowseBar szBrowseViewer bkStartup SfileExtension startupBookName Could not initialize Browse Movie szSysInfo Browse Viewer goToPage qtromDrive szBrowseClip closeBrowse periodic BrowseViewer Disc found in volume dwBrowseMovieLength wBrowse bBrowseInit bFirstBrowse Browse bkBrowseViewer bookInfoByBookID wShortName default 1appName initBrowseViewer initBrowseSlider wBrowseTimer playBrowse +&,!Y +&,!Y lSide szBrowseClip dwBrowseStart dwBrowseMovieLength slidebar szBrowseViewer dwBrowseTravel timerNotify +&,!Y +&,!Y lSide szBrowseClip dwBrowseStart dwBrowseMovieLength slidebar szBrowseViewer dwBrowseTravel setBrowseBar +#,## szBrowseClip wBrowseTimer pauseBrowse +&,!" browseViewerStage szBrowseClip dwBrowseMovieLength W(setBrowseBar szBrowseViewer dwBrowseInterval keyDown +#,## szBrowseClip center bBrowseInit szBrowseViewer wBrowseTimer closeBrowse +#,## +#,## +#,## SfileExtension browseViewerStage szViewer wPageNum goToPage szBrowseClip center Browse Viewer successful mmPause bBrowseInit mmClose W(setBrowseBar szBrowseViewer mmPlay wBrowseTimer mmNotify <+U!! .&, 7 .&, 7 lSide browseViewerStage stepforward pause goToPage rSide Browse Viewer slideBox width objTop width screenResolution slideBar statusBar szBrowseViewer objTop height stepForward lSide ptLastBrowsePos stepback initBrowseViewer +&,!J rSide dwBrowseStart dwBrowseMovieLength slider width slideBar szBrowseViewer dwBrowseTravel dwBrowseInterval initBrowseSlider lSide lSide objTop objTop rSide width rSide height width width height height <+U!! statusBar enterBook myPath browseViewer GettingAround statusmsg statusMsg StatusText mouseEnter statusMsg mouseLeave buttonDown buttonUp t8dwMediaLength (stSize BlackMask UszMediaSource playMovie %.wStyle buttonClick oenabled = statusMsg oStatusText statusmsg orgbfill = 0, 128, 0 3255, 25